home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / java / leja.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  6.1 KB  |  272 lines
  1. unit Leja;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,PRINTERS;
  8.               
  9. type
  10.   TForm4 = class(TForm)
  11.     Image1: TImage;
  12.     Memo1: TMemo;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Button3: TButton;
  16.     Button4: TButton;
  17.     Button5: TButton;
  18.     Button6: TButton;
  19.     Button7: TButton;
  20.     BitBtn1: TBitBtn;
  21.     BitBtn2: TBitBtn;
  22.     LABEL1: TLabel;
  23.     Label2: TLabel;
  24.     Memo2: TMemo;
  25.     procedure BitBtn1Click(Sender: TObject);
  26.     procedure Button1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure Button4Click(Sender: TObject);
  30.     procedure Button5Click(Sender: TObject);
  31.     procedure Button6Click(Sender: TObject);
  32.     procedure Button7Click(Sender: TObject);
  33.     procedure BitBtn2Click(Sender: TObject);
  34.     procedure FormShow(Sender: TObject);
  35.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  36.     procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  37.       Y: Integer);
  38.     procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  39.       Y: Integer);
  40.     procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  41.       Y: Integer);
  42.     procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  43.       Y: Integer);
  44.     procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
  45.       Y: Integer);
  46.     procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
  47.       Y: Integer);
  48.     procedure Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
  49.       Y: Integer);
  50.     procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  51.       Y: Integer);
  52.     procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  53.       Y: Integer);
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.   end;
  59.  
  60. var
  61.   Form4: TForm4;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. procedure TForm4.BitBtn1Click(Sender: TObject);
  68. begin
  69. CLOSE;
  70. end;
  71.  
  72. procedure TForm4.Button1Click(Sender: TObject);
  73. begin
  74. MEMO1.CLEAR;
  75. MEMO1.HEIGHT:=97;
  76. MEMO1.WIDTH:=145;
  77. MEMO1.LEFT:=480;
  78. MEMO1.TOP:=224;
  79. MEMO1.LEFT:=272;
  80. MEMO1.TOP:=8;
  81. MEMO1.HEIGHT:=313;
  82. MEMO1.WIDTH:=353;
  83. MEMO2.CLEAR;
  84. MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA1.TXT');
  85. MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA1.TXT');
  86. end;
  87.  
  88. procedure TForm4.Button2Click(Sender: TObject);
  89. begin
  90. MEMO1.CLEAR;
  91. MEMO1.HEIGHT:=97;
  92. MEMO1.WIDTH:=145;
  93. MEMO1.LEFT:=480;
  94. MEMO1.TOP:=224;
  95. MEMO1.LEFT:=272;
  96. MEMO1.TOP:=8;
  97. MEMO1.HEIGHT:=313;
  98. MEMO1.WIDTH:=353;
  99. MEMO2.CLEAR;
  100. MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA2.TXT');
  101. MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA2.TXT');
  102. end;
  103.  
  104. procedure TForm4.Button3Click(Sender: TObject);
  105. begin
  106. MEMO1.CLEAR;
  107. MEMO1.HEIGHT:=97;
  108. MEMO1.WIDTH:=145;
  109. MEMO1.LEFT:=480;
  110. MEMO1.TOP:=224;
  111. MEMO1.LEFT:=272;
  112. MEMO1.TOP:=8;
  113. MEMO1.HEIGHT:=313;
  114. MEMO1.WIDTH:=353;
  115. MEMO2.CLEAR;
  116. MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA3.TXT');
  117. MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA3.TXT');
  118. end;
  119.  
  120. procedure TForm4.Button4Click(Sender: TObject);
  121. begin
  122. MEMO1.CLEAR;
  123. MEMO1.HEIGHT:=97;
  124. MEMO1.WIDTH:=145;
  125. MEMO1.LEFT:=480;
  126. MEMO1.TOP:=224;
  127. MEMO1.LEFT:=272;
  128. MEMO1.TOP:=8;
  129. MEMO1.HEIGHT:=313;
  130. MEMO1.WIDTH:=353;
  131. MEMO2.CLEAR;
  132. MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA4.TXT');
  133. MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA4.TXT');
  134. end;
  135.  
  136. procedure TForm4.Button5Click(Sender: TObject);
  137. begin
  138. MEMO1.CLEAR;
  139. MEMO1.HEIGHT:=97;
  140. MEMO1.WIDTH:=145;
  141. MEMO1.LEFT:=480;
  142. MEMO1.TOP:=224;
  143. MEMO1.LEFT:=272;
  144. MEMO1.TOP:=8;
  145. MEMO1.HEIGHT:=313;
  146. MEMO1.WIDTH:=353;
  147. MEMO2.CLEAR;
  148. MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA5.TXT');
  149. MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA5.TXT');
  150. end;
  151.  
  152. procedure TForm4.Button6Click(Sender: TObject);
  153. begin
  154. MEMO1.CLEAR;
  155. MEMO1.HEIGHT:=97;
  156. MEMO1.WIDTH:=145;
  157. MEMO1.LEFT:=480;
  158. MEMO1.TOP:=224;
  159. MEMO1.LEFT:=272;
  160. MEMO1.TOP:=8;
  161. MEMO1.HEIGHT:=313;
  162. MEMO1.WIDTH:=353;
  163. MEMO2.CLEAR;
  164. MEMO1.LINES.LOADFROMFILE('\TEXT\L5.TXT');
  165. MEMO2.LINES.LOADFROMFILE('\TEXT\L5.TXT');
  166. end;
  167.  
  168. procedure TForm4.Button7Click(Sender: TObject);
  169. begin
  170. MEMO1.CLEAR;
  171. MEMO1.HEIGHT:=97;
  172. MEMO1.WIDTH:=145;
  173. MEMO1.LEFT:=480;
  174. MEMO1.TOP:=224;
  175. MEMO1.LEFT:=272;
  176. MEMO1.TOP:=8;
  177. MEMO1.HEIGHT:=313;
  178. MEMO1.WIDTH:=353;
  179. MEMO2.CLEAR;
  180. MEMO1.LINES.LOADFROMFILE('\TEXT\L6.TXT');
  181. MEMO2.LINES.LOADFROMFILE('\TEXT\L6.TXT');
  182. end;
  183.  
  184. procedure TForm4.BitBtn2Click(Sender: TObject);
  185. VAR
  186. MYFILE:TEXTFILE;
  187. LI:INTEGER;
  188. begin
  189.   AssignPrn(MyFile);
  190.   Rewrite(MyFile);
  191.   Writeln(MyFile, ' ');
  192.   Writeln(MyFile, ' ');
  193.   Writeln(MyFile, ' ');
  194.   Writeln(MyFile, '   '+LABEL1.CAPTION);
  195.   Writeln(MyFile, ' ');
  196.   FOR LI:=0 TO MEMO2.LINES.COUNT-1 DO
  197.   Writeln(MyFile, '    '+MEMO2.LINES[LI]);
  198.   System.CloseFile(MyFile);
  199. end;
  200.  
  201. procedure TForm4.FormShow(Sender: TObject);
  202. begin
  203. IMAGE1.PICTURE.LOADFROMFILE('\LEARN.BMP');
  204. end;
  205.  
  206. procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
  207. begin
  208. MEMO1.CLEAR;
  209. MEMO1.HEIGHT:=97;
  210. MEMO1.WIDTH:=145;
  211. MEMO1.LEFT:=480;
  212. MEMO1.TOP:=224;
  213. MEMO2.CLEAR;
  214. MEMO1.LINES.ADD('I MAY HELP YOU SO MUCH !');
  215. end;
  216.  
  217. procedure TForm4.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  218.   Y: Integer);
  219. begin
  220. button1.setfocus;
  221. end;
  222.  
  223. procedure TForm4.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  224.   Y: Integer);
  225. begin
  226. button2.setfocus;
  227. end;
  228.  
  229. procedure TForm4.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  230.   Y: Integer);
  231. begin
  232. button3.setfocus;
  233. end;
  234.  
  235. procedure TForm4.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  236.   Y: Integer);
  237. begin
  238. button4.setfocus;
  239. end;
  240.  
  241. procedure TForm4.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
  242.   Y: Integer);
  243. begin
  244. button5.setfocus;
  245. end;
  246.  
  247. procedure TForm4.Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
  248.   Y: Integer);
  249. begin
  250. button6.setfocus;
  251. end;
  252.  
  253. procedure TForm4.Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
  254.   Y: Integer);
  255. begin
  256. button7.setfocus;
  257. end;
  258.  
  259. procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  260.   Y: Integer);
  261. begin
  262.  bitbtn1.setfocus;
  263. end;
  264.  
  265. procedure TForm4.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  266.   Y: Integer);
  267. begin
  268. bitbtn2.setfocus;
  269. end;
  270.  
  271. end.
  272.